program main

    integer :: i
    integer :: a(2, 3) = reshape([(i,i=1,6)], [2,3])

    call prt(a(1, 1))   ! 数组切片

contains

    subroutine prt(a)
        integer, intent(in) :: a(2)
        print *, a
    end subroutine prt

end program main
